home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / RaveTest.AMOS / RaveTest.amosSourceCode
Encoding:
AMOS Source Code  |  1995-10-27  |  1.4 KB  |  50 lines
  1. Hide 
  2. Dim PP(7)
  3. For A=0 To 7 : Read PP(A) : Next 
  4. Do 
  5.   Multi Wait 
  6.   If Inkey$<>"" Then MD=Rnd(1)+1
  7.   If OMD<>MD Then On MD Gosub PICSINIT,STROBOINIT
  8.   OMD=MD
  9.   On MD Gosub PICS,STROBO
  10. Loop 
  11. PICSINIT:
  12.   Screen Open 0,320,256,2,0
  13.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  14.   OPIC=0
  15.   PP=$FFF
  16. Return 
  17. STROBOINIT:
  18.   Screen Open 0,352,270,2,0
  19.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  20.   W=Rnd(1023)
  21.   Palette 0,PP(Rnd(6)+1)
  22.   Double Buffer 
  23. Return 
  24. STROBO:
  25.    Extension_8_121C 0,0
  26.   C=Colour(0)
  27.   Colour 0,Colour(1) : Colour 1,C
  28.   Colour Back Colour(0) : View 
  29.   X= Extension_8_1106(W,50)+ Extension_8_1114(W/3,100)- Extension_8_1106( Extension_8_1114(W/8,1024),50)+176
  30.   Y= Extension_8_1114(W/2,50)+ Extension_8_1106(W/3,100)- Extension_8_1114( Extension_8_1106(W/4,1024),50)+135
  31.    Extension_8_1258 
  32.    Extension_8_1372 X,Y,100,0
  33.    Extension_8_1372 X+ Extension_8_1114(W,72),Y+ Extension_8_1106(W,72),30,0
  34.    Extension_8_1372 X+ Extension_8_1114(-W+300,82),Y+ Extension_8_1106(-W+300,82),20,0
  35.    Extension_8_1042 0,0
  36.   Screen Swap 
  37.   Add W,15
  38. Return 
  39. PICS:
  40.   If Rnd(5)=0 Then PP=PP(Rnd(6)+1)
  41.   Repeat : PIC=Rnd(22)+1 : Until PIC<>OPIC
  42.   OPIC=PIC
  43.   Auto View Off 
  44.   Load Iff "dh1:Grafik/DPaint/Picture/B&W/Pic"+ Extension_8_0EB8(PIC,3)+".iff"
  45.   Palette PP,PP : Colour Back PP : View 
  46.   Auto View On 
  47.   Fade 1,PP,0
  48.   Wait Rnd(8)+8
  49. Return 
  50. Data 0,$FFF,$F00,$F0,$FF0,$F0F,$FF,$F